home *** CD-ROM | disk | FTP | other *** search
/ Power Utilities / Power Utilities.iso / utility / pro211 / gifv.sle < prev    next >
Encoding:
Text File  |  1993-10-06  |  931 b   |  32 lines
  1. ;
  2. ; GIFV.SLE
  3. ; This will use all GIF files on F:\ and it will make all of the
  4. ; pictures that are greater than or equal to 800x600 come in
  5. ; EXPANDING. If will make files greater than or equal to 640x480
  6. ; Fade IN/OUT. If will make the rest of the files come in with the
  7. ; BLIND effect.
  8. ;
  9. ;        Slide-Type-Normal    Sets NO special effects
  10. ;        Slide-Type-Blind     Sets venitian blinds special effect
  11. ;        Slide-Type-Fade      Sets fade-in/fade-out special effect
  12. ;        Slide-Type-Expand    Sets Expand special effect
  13. ;        Slide-Type-Merge     Sets Merging special effect
  14. ;
  15.         change-path F:\*.gif
  16. :loop
  17.         if>=800X600 :do800X600
  18.         if>=640X480 :do640X480
  19.         slide-type-Blind
  20.         GOTO :CONT
  21. :DO800X600
  22.         slide-type-expand
  23.         GOTO :CONT
  24. :DO640X480
  25.         slide-type-Fade
  26.         GOTO :CONT
  27. :cont
  28.         loadnext :exit
  29.         goto :loop
  30. :exit
  31.  
  32.